MacFormat 1997 March/macformat-048.iso/Demos/Musee d'Orsay/ORSAY/DATAOR/DEJEUN.DXR/00040.ls

Text File | 1996-06-17 | 307 b | 23 lines

on mouseDown
  quit()
end

on wait wichtime
  set timedeb to the timer
  repeat while (the timer - timedeb) < (wichtime * 60)
    if the mouseDown then
      quit()
    end if
  end repeat
end

on startMovie
  cursor(200)
end

on idle
  if not soundBusy(1) then
    sound playFile 1, "ORIGIMP"
  end if
end